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dyc= .1/ 
ga = 0; 

al = - dye / 2 / Pi ga ; 

ParametricPlot[{xb[tJ, yblftj}, {t, 0, 5/fh), 
AspectRatio -> 3 / 4, 
Frame -> True, 
PlotRange-> {{--9, .9}, {0, 1}}]/ 
Clear [fb, dye] / 
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For comparison this is an uncorrrected faster. 
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